home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Languguage OS 2
/
Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO
/
language
/
pcpil
/
sample5.pil
< prev
next >
Wrap
Text File
|
1979-12-31
|
3KB
|
310 lines
R: AUTOPI - Show off PILOT ease of use
R: INITIALIZATION - SET UP VIEWPORT CMDS
D:VLIST$(26),VTALK$(26),VTERM$(26),ANS$(20)
C:VLIST$="TS:V2,23,2,10;F3;B0"
C:VTALK$="TS:V27,37,2,7;F2;B0"
C:VTERM$="TS:V14,35,15,22;F5;B0"
R: SET SCREEN MODE AND DO INTRO
TS:M1;E1;V4,35,6,20;F2;B0
TX:
T: This sample shows you a very
T:
T: simple PILOT program, and
T:
T: explains how it works. It will
T:
T: give you an idea of how easy
T:
T: it is to create a program.
T:
T:
TH: (push a key)
AS:
TX:
T:
T: To run this demo
T:
T: just keep on pushing the
T:
TS:F1
T: SPACE BAR
TS:F2
T:
T: each time you are ready for
T:
TH: the next thing to happen.
AS:
TS:V;B1
TX:
TS:V1,24,1,11;B0;F7
TXH: Listing
X:VLIST$
T:
:
:The program is
:
: listed here
AS:
TS:V26,38,1,8;B0;F7
TXH: Remarks
X:VTALK$
T:
: Comments
:
:shown here
AS:
TS:V13,36,14,23;B0;F7
TXH: Terminal
X:VTERM$
T:
:This is a picture of
:
: the screen as the
:
: student runs the
:
TH: program
AS:
X:VTERM$
TX:
X:VLIST$
TX:
X:VTALK$
TX:
T: Here's the
: program
X:VLIST$
W:10
TX:
T:T:Who wrote
W:8
T::"The Odyssey"?
W:8
T:A:
W:8
T:M:HOMER
W:8
T:TY:Right.
W:8
T:TN:No, try again.
W:8
TH:J:@A
AS:
X:VTALK$
TX:
:Watch it
:
: run.
AS:
X:VLIST$
TS:G0,1;F4
T:T:Who wrote
::"The Odyssey"?
X:VTALK$
TX:
T:T: means
:TYPE text.
:
: : means
TH:more text
W:15
X:VTERM$
T:Who wrote
:"The Odyssey?"
W:20000
X:VLIST$
TS:G0,1
T:T:Who wrote
::"The Odyssey"?
TS:F4
T:A:
X:VTALK$
TX:
T:A: means
:
:ACCEPT an
:
TH:answer
W:20000
TX:Student
:
:now types
:
:answer...
X:VTERM$
TS:G0,2
C:ANS$="It was Plato"
U:EXACT
W:20000
X:VLIST$
TS:G0,3
T:A:
TS:F4
T:M:HOMER
X:VTALK$
TX:M: means
:
: MATCH
:
:Result is
TH: NO
AS:
X:VLIST$
TS:G0,4
T:M:HOMER
TS:F4
T:TY:Right.
X:VTALK$
TX:
T:TY: means
:TYPE if YES
:so it is
TH:skipped
AS:
X:VLIST$
TS:G0,5
T:TY:Right.
TS:F4
T:TN:No, try again.
X:VTALK$
TX:TN: means
:TYPE if NO
:
:so it is
TH:typed.
W:10
X:VTERM$
TS:G0,3
T:No, try again.
AS:
X:VLIST$
TS:G0,6
T:TN:No, try again.
TS:F4
T:J:@A
X:VTALK$
TX:
T:J:@A means
:
:JUMP to
:
TH:the ACCEPT
AS:
X:VLIST$
TS:G0,7
T:J:@A
TS:G0,3
TS:F4
T:A:
X:VTALK$
TX:
:ACCEPT is
:
:done again
W:20000
TX:Student
:
:now types
:
:answer...
X:VTERM$
TS:G0,3
C:ANS$="How about HOMER"
TS:G0,4
U:EXACT
W:20000
X:VLIST$
TS:G0,3
T:A:
TS:F4
T:M:HOMER
X:VTALK$
TX: MATCH
:done again
:
:result is
: YES
TH:this time
W:20000
X:VLIST$
TS:G0,4
T:M:HOMER
TS:F4
T:TY:Right.
X:VTALK$
TX:TY: means
:
:TYPE if YES
TH:so it does.
W:10
X:VTERM$
TS:G0,5
T:Right.
W:20000
X:VLIST$
TS:G0,5
T:TY:Right.
X:VTALK$
TX: And
: so
: on...
AS:
TS:M1;E1;V4,35,6,20;F2;B0
TX:
T: Though this was a very simple
T:
T: example, it should have given
T:
T: you the basic idea of how easy
T:
T: it is to get started with
T:
TH: PILOT programming.
AS:
J:END
R: subroutine to pretend student
R: has replied as expected...
R: the second number on the S:
R: determines the speed.
*EXACT C:L=LEN(ANS$)
TS:F4
C:I=1
*E1 S:0,4;100,0
TH:#(ANS$(I))
C:I=I+1
J(I<=L):E1
*E2 S:0,4;200,0
T:
E:
*END TS:f7;b0;m2
E: